(GSET(QUOTE T22)
    (FOR NEW X IN (PRINT(CATALOG3 @ (4)))
      FOR NEW Y IN (LABEL1 @ (NODES 1 2 3 4) 2 X)
        AS NEW Z IS (COPYSTRUC (LSTRUC Y))
          XLIST
            (CONNECT
              (FINDCTE (CAR (NODENUMS (LABELED Y))) Z)
              (FINDCTE (CADR (NODENUMS (LABELED Y))) Z))
          Z)))))))))))))

(GSET(QUOTE T41)
    (LIST
(STRUCTURE
 LASTNODE# = 5
 UGRAPH @ T41KITE
 CTABLE   (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 3 4 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 3 NBRS = @ (1 2 4))
          (CTENTRY NODENUM = 4 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 2 4))))
(STRUCTURE
  LASTNODE# 5
  UGRAPH @ T41SCOOP
  CTABLE = (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 2 4 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 1 3))
          (CTENTRY NODENUM = 3 NBRS = @ (2 4 5))
          (CTENTRY NODENUM = 4 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 3 4))))
 (STRUCTURE
   LASTNODE# = 5
   UGRAPH @ T41FAN
   CTABLE = (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 4 5 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 3 3))
          (CTENTRY NODENUM = 3 NBRS = @ (2 2 4))
          (CTENTRY NODENUM = 4 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 1 4))))
 (STRUCTURE
  LASTNODE# = 5
  UGRAPH @ T41RING
  CTABLE = (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 2 5 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 1 3))
          (CTENTRY NODENUM = 3 NBRS = @ (2 4 4))
          (CTENTRY NODENUM = 4 NBRS = @ (3 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 1 4))))
 (STRUCTURE
  LASTNODE# = 5
  UGRAPH @ T41HOURGLASS
  CTABLE = (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 3 4 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 3 3))
          (CTENTRY NODENUM = 3 NBRS = @ (1 2 2))
          (CTENTRY NODENUM = 4 NBRS = @ (1 5 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 4 4))))))
)))))))))))))
  (DEFLIST (QUOTE ((C 4)
                   (N 3)
                   (I 1)
                   (CL 1)
                   (BR 1)
                   (F 1)
                   (S 2)
                   (P 5)
                   (O 2)
                   (SI 4)
                   (H 1)))
           (QUOTE VALENCE))
)))))))))))))))))